10 REM THE PSYCHIC, BY DAVID PAYNE
20 BC=198:IF FRE(0)<>FRE(1) THEN BC=208
100 GOSUB 1200
140 PRINTTAB(10)"[159] *** [201]NSTRUCTIONS ***"
210 PRINT"    [212]HE INSTRUCTIONS ARE QUITE SIMPLE."
212 PRINT" [202]UST GUESS A NUMBER BETWEEN 0 AND 30."
215 PRINT" [206]EXT ANSWER THE QUESTIONS ASKED THEN [201]"
220 PRINT" WILL GUESS THE NUMBER."
300 PRINTTAB(7)"[150][208]RESS '[210][197][212][213][210][206][150]' TO [195]ONTINUE"
320 POKE BC,0
330 GET A$:IF A$=CHR$(13) OR A$=CHR$(141) THEN 360
335 IF A$="[140]" THEN SYS 8*4096+4
340 GOTO 330
360 GOSUB 1500
370 PRINT"    [199]UESS A NUMBER BETWEEN 0 AND 30"
390 PRINTTAB(7)"[150][208]RESS '[210][197][212][213][210][206][150]' WHEN [210]EADY"
410 POKE BC,0
420 GET A$:IF A$=CHR$(13) OR A$=CHR$(141)THEN 450
425 IF A$="[140]" THEN SYS 8*4096+4
430 GOTO 420
450 GOSUB 1500
460 T=0
470 PRINT "[159]      [201]S YOUR NUMBER ONE OF THESE?"
490 PRINT TAB(12)"[150][[217][150]]ES  --  [[206][150]]O[155]"
510 C=0
520 FOR Z=1 TO 5
530 P$=""
540 FOR K=1 TO 8
550 READ T$
555 IF LEN(T$)=1 THEN T$=" "+T$
560 P$=P$+T$+"  "
570 NEXT K:GOSUB 1700
580 PRINT "[155]"P$
590 P$=""
600 FOR K=1 TO 7
610 READ T$
615 IF LEN(T$)=1 THEN T$=" "+T$
620 P$=P$+T$+"  "
630 NEXT K
640 PRINT ""P$
650 POKE BC,0
660 GET A$:IF A$="" THEN 660
665 S=ASC(A$)
670 IF S=89 OR S=217 THEN 700
680 IF S=78 OR S=206 THEN 750
685 IF A$="[140]" THEN SYS 8*4096+4
690 GOTO 660
700 IF Z=1 THEN T=2
710 IF Z=2 THEN T=T+1
720 IF Z=3 THEN T=T+16
730 IF Z=4 THEN T=T+8
740 IF Z=5 THEN T=T+4
750 GOSUB 1600
760 NEXT Z
770 GOSUB 1500
780 PRINTTAB(12)"[154][201] AM THINKING..."
790 FOR H=0 TO 30 STEP 2
800 IF T-H=0 THEN M=5:GOTO 820
810 NEXT H
820 FOR K=1 TO 900:NEXT K
830 IF M=5 THEN PRINTTAB(10)"[158][217]OUR NUMBER IS EVEN[158].":GOTO 850
840 PRINTTAB(10)"[158][217]OUR NUMBER IS ODD[158]."
850 FOR K=1 TO 1000:NEXT
860 IF T=31 THEN GOSUB 1800:GOTO 880
870 PRINT"   --> [217]OU PICKED THE NUMBER [153]"T" <--"
880 PRINT"[150]  '[159][198]8[150]' TO [197]XIT -- '[210][197][212][213][210][206][150]' TO [210]ESTART"
890 POKE BC,0
900 GET A$:IF A$="" THEN 900
905 S=ASC(A$)
910 IF S=13 OR S=141 THEN 940
920 IF S=140 THEN SYS 8*4096+4
930 GOTO 900
940 CLR:GOTO 360
950 RESTORE 
960 HCOLOR= 7
970 GOTO 370
990 END 
1100 DATA 2,27,14,15,18,10,22,7,19,26,23,6,3,11,30
1110 DATA 1,5,17,11,9,21,3,29,19,7,15,25,23, 13,27
1120 DATA 16,24,28,17,30,21,18,22,23,19,26,27,25,20,29
1130 DATA  8,9,30,10,27,14,26,28,13,11,29,24,12,15,25
1140 DATA  4,23,20,7,12,15,6,30,5,21,14,22,13,29,28
1200 POKE 53281,0:POKE 53280,11
1210 PRINT"[158][147]";
1230 PRINTTAB(14)"[188][187][172][146][190][161][146][161][161][146][161][161][172][162][146][190]"
1240 PRINTTAB(14)" [161][146][161] [161][188][190][146][161][161][188][146][187]"
1250 PRINTTAB(14)" [161][146][161] [161][146][161][161][146][161][161][146][161]"
1260 PRINTTAB(14)" [188][190] [188][190][188][190][188][162][162][146][190]"
1265 REM -----------
1270 PRINTTAB(6)"[161][172][187][146][187][172][172][187][146][187][161][146][161][161][146][161][172][172][162][188][161][146][161][161][146][161][188] [146][190][172][172][162][188]"
1280 PRINTTAB(6)"[161][188][190][146][190][188][188][146][162] [188][188][190][146][190][161][146][161]  [161][188][190][146][161]  [146] [161][146][161]"
1290 PRINTTAB(6)"[161][146][161]  [172][187][161][146][161] [161][146][161] [161][146][161] [162][161][146][161][161][146][161]  [146] [161][146][161] [162]"
1300 PRINTTAB(6)"[188][190]   [162][162][146]  [188][190]  [162][162][146][190][188][190][188][190][188][162][146][190] [162][162][146][190]"
1305 PRINT"[156] [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
1310 PRINT"[159]      [208]SYCHIC [205]IND [210]EADING [208]ROGRAM"
1320 PRINTTAB(10)"([158][195][159]) 1988 [196]AVID [208]AYNE"
1330 PRINT"[150]    [208]RESS '[210][197][212][213][210][206][150]' FOR [201]NSTRUCTIONS"
1340 PRINT"[152] [208]UBLISHED BY [211]OFTDISK [208]UBLISHING, [201]NC."
1350 GET A$:IF A$<>CHR$(13) AND A$<>CHR$(141)THEN 1350
1355 GOSUB 1500
1360 RETURN
1500 PRINT""
1510 SP$="                                       "
1520 FOR I=1 TO 13
1530 PRINTSP$:NEXT
1540 PRINT"";
1550 RETURN
1600 PRINT""
1610 SP$="                                       "
1620 FOR I=1 TO 9
1630 PRINTSP$:NEXT
1640 PRINT"";
1650 RETURN
1700 GOSUB 1600
1710 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
1720 PRINT"[221]                                 [221]"
1725 PRINT"[221]                                 [221]"
1730 PRINT"[221]                                 [221]"
1740 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
1750 PRINT"[145][145][145][145]";
1760 RETURN
1800 PRINTTAB(8)"[150][217]OUR NUMBER IS [214][197][210][217][150] ODD."
1810 PRINTTAB(5)"[159][201]N FACT IT DOESN'T EVEN EXIST."
1820 RETURN